home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / t3_1 / xlib.lha / xlib / xrectangle.mln < prev    next >
Text File  |  1990-06-07  |  708b  |  28 lines
  1.  
  2. ;Beginning compilation on /u/kranz/xlib/xrectangle.t
  3.  
  4. MAKE-XRECTANGLE
  5. XRECTANGLE-X
  6. XRECTANGLE-X!
  7. XRECTANGLE-Y
  8. XRECTANGLE-Y!
  9. XRECTANGLE-WIDTH
  10. XRECTANGLE-WIDTH!
  11. XRECTANGLE-HEIGHT
  12. XRECTANGLE-HEIGHT!
  13. (VARIABLES
  14.   FREE (CHK-XRECTANGLEP MAKE-BYTEV)
  15.   EARLY-BOUND (SET-MREF-16-U! MREF-16-U SET-MREF-16-S! MREF-16-S)
  16.   DEFINED (MAKE-XRECTANGLE XRECTANGLE-X XRECTANGLE-X! XRECTANGLE-Y
  17. XRECTANGLE-Y! XRECTANGLE-WIDTH XRECTANGLE-WIDTH! XRECTANGLE-HEIGHT
  18. XRECTANGLE-HEIGHT!)
  19.   LSET ()
  20.   SET ()
  21.   ERROR ()
  22.   INTEGRATED (CONS)
  23.   LOCAL ()
  24.   UNREFERENCED (MAKE-XRECTANGLE XRECTANGLE-X XRECTANGLE-X! XRECTANGLE-Y
  25. XRECTANGLE-Y! XRECTANGLE-WIDTH XRECTANGLE-WIDTH! XRECTANGLE-HEIGHT
  26. XRECTANGLE-HEIGHT!))
  27. ; assembled 1052 bytes
  28.